home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCT_1017_UserItem < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.5 KB  |  74 lines
  1. %case include%
  2. %case instance%
  3. %case zMake.decl%
  4.     void    Make%itemname%%    %(CView            *enclosure,
  5.                              CBureaucrat    *supervisor);
  6. %case zMake%
  7.     /*----------*/
  8.     %if modeless%
  9.         void Z%dlogname%::Make%itemname% (
  10.     %else%
  11.         void Z%windname%::Make%itemname% (
  12.     %endif%
  13.                         CView            *enclosure,
  14.                         CBureaucrat        *supervisor)
  15.     {
  16.         /* override this method to create and initialize %itemname% */
  17.  
  18.     } /* Make%itemname% */
  19.  
  20. %case include.override%
  21.     #include <CPanorama.h>
  22. %case instance.override%
  23.     CPanorama        *%itemname%;
  24. %case Make.decl%
  25.     void    Make%itemname%%    %(CView            *enclosure,
  26.                              CBureaucrat    *supervisor);
  27. %case Make%
  28.     /*----------*/
  29.     %if modeless%
  30.         void C%dlogname%::Make%itemname% (
  31.     %else%
  32.         void C%windname%::Make%itemname% (
  33.     %endif%
  34.                         CView            *enclosure,
  35.                         CBureaucrat        *supervisor)
  36.     {
  37.         %itemname% = new (CPanorama);
  38.         %itemname%->IViewRes ('Pano', %paneID%, enclosure, supervisor);
  39.         %if not modeless%
  40.             mainPanorama = %itemname%;
  41.         %endif%
  42.  
  43.     } /* Make%itemname% */
  44.  
  45. %case create%
  46.     
  47.     Make%itemname% (enclosure, supervisor);
  48. %case itemNr%
  49.     %DefineItem%
  50. %case dialog field%
  51.     Handle%        %%fieldname%;
  52.     %Enable?%
  53.     %haveField%
  54. %case init field%
  55.     info->%fieldname% = NULL;
  56.     %Enable?%
  57. %case auxiliary%
  58.     /*----------*/
  59.     static pascal void Draw%itemname%    (DialogPtr        whichDialog,
  60.                              short            itemNr);
  61.     static pascal void Draw%itemname% (whichDialog, itemNr)
  62.     DialogPtr        whichDialog;
  63.     short            itemNr;
  64.     {
  65.     } /*Draw%itemname%*/
  66.     
  67. %case filter%
  68. %case set%
  69.     SetUserItem (%itemname%, (ProcPtr) &Draw%itemname%);
  70. %case enable%
  71.     %Enable?%
  72. %case hit%
  73. %case finish%
  74.